use Entity;

package Wall;

@ISA = qw/Entity/;


sub init{
    my $self = shift;

    $self->{TYPE} = "TILE";
    $self->{PIC} = '#';
    $self->attr("PASSABLE", 0);
}

1;
